perm filename BT[P,JRA] blob sn#203329 filedate 1976-02-23 generic text, type T, neo UTF8
(QUOTE (ONCE AGAIN TO NANCY))


(DEF BTUP
 (LAMBDA (X N POPORT) (COND (T (LINELENGTH 70) ($PRDF X 1 0)))))

(DEF BT
 (LAMBDA (N)
  (PROG (FORM I)
        (BFRAME T)
        (BFRAME)
        (BFRAME)
        (COND ((NULL (NUMBP N)) (SETQ N 0)))
	(SETQ I 0)
   LOOP (COND
         ((SETQ FORM (BFRAME))
	(PATOM '"ENTRY ")
	(PRINT (SETQ I (ADD1 I)))
	(PATOM '" @  ")
          (COND
           ((EQ N 0)
            (PRINT
             (COND ((DTPR FORM) (CAR FORM)) (T FORM)))
            (TERPR)
            (GO LOOP)))
          (COND ((GETD (QUOTE $PRDF))
                 (BTUP FORM)
                 (TERPR)
                 (SETQ N (DIFF N  1))
                 (GO LOOP))
                (T (PRINT FORM)
                   (TERPR)
                   (SETQ N (DIFF N   1))
                   (GO LOOP))))))))

(DEF FLUSHBT
 (LAMBDA NIL
  (PROG NIL
        ($FLUSHLIST *BTFNS)
        (SETQ *BTFNS)
        ($MUMBLE NIL T)
        (RECLAIM)
        ($MUMBLE))))


(SETQ *BTFNS (QUOTE (BTUP BT FLUSHBT)))


(QUOTE (PACKAGED BY JCB))